home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / comm / ums / UMS11_9_beta.lha / UMS / Bin / umscopy < prev    next >
AmigaDOS Script File  |  1999-03-14  |  619b  |  32 lines
  1. .key FILE/A,MSGID/A,UMSNAME/A,RESULTVAR/A
  2. .bra {
  3. .ket }
  4.  
  5. ; $Id: umscopy,v 1.2 1999/03/14 09:18:45 andre Exp $
  6.  
  7. failat 10
  8. set destdir `getenv umsfiles.{UMSNAME}`
  9.  
  10. if not `echo len 1 $destdir` eq :
  11.   if not `echo len 1 $destdir` eq /
  12.     set destdir $destdir/
  13.   endif
  14. endif
  15. set newfile `list "{FILE}" quick lformat "$destdir%n"`
  16.  
  17. if exists "$newfile"
  18.   set i 1
  19.   lab loop
  20.   if exists "$newfile.$i"
  21.     set i `eval $i + 1`
  22.     skip loop back
  23.   endif
  24.   set newfile "$newfile.$i"
  25. endif
  26.  
  27. echo "copying *"{FILE}*" to *"$newfile*" .."
  28. copy "{FILE}" "$newfile" clone
  29. filenote "$newfile" "{MSGID}"
  30.  
  31. setenv {RESULTVAR} "$newfile"
  32.